home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctrace.arc / PCTREPT.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-07-03  |  1.2 KB  |  64 lines
  1.     TITLE    Type Trace Table gathered by PTRACE
  2.     PAGE    66,132
  3.     COMMENT * DJOHNSON 07/05/85 *
  4.  
  5. ;
  6. DSEG     SEGMENT PARA
  7. ;
  8. ; DATA AREAS POINTED AT BY DS
  9. ;
  10. RC     DB     ? ; PROGRAM RETURN CODE
  11. NOWAY     DB     'PTRACE is not active.',0DH,0AH,'$'
  12. OUTINT     EQU     7FH
  13. DSEG     ENDS
  14. ;
  15. SSEG     SEGMENT STACK
  16. ;
  17. ; LOCAL STACK SEGMENT MAPPED BY SS
  18. ;
  19.      DQ     64 DUP(?) ;LOCAL STACK SPACE
  20. MYSTACK  DB     '*STACK'
  21. SSEG     ENDS
  22. ;
  23. CSEG     SEGMENT PARA               ;CODE STARTS HERE
  24. ;
  25. START     PROC     FAR               ;Main Procedure
  26. ;
  27. ASSUME CS:CSEG,DS:DSEG,SS:SSEG,ES:NOTHING
  28. ;
  29. MAIN:
  30.      MOV     AX,DSEG     ; INITIALIZE DS
  31.      MOV     DS,AX         ; ...
  32.      MOV     AX,SSEG     ; INITIALIZE SS
  33.      MOV     SS,AX         ; ...
  34.      LEA     SP,MYSTACK  ;INIT STACK POINTER
  35. ;
  36. CODE_START:
  37.      MOV     AL,OUTINT   ; CHECK THAT TRACING IS ACTIVE
  38.      MOV     AH,35H
  39.      INT     21H
  40.      MOV     AX,ES
  41.      CMP     AX,0
  42.      JE     FAIL
  43.      CMP     BX,0
  44.      JE     FAIL
  45.      MOV     AL,BYTE PTR ES:[BX] ; PUSH AX INSTRUCTION?
  46.      CMP     AL,50H
  47.      JNE     FAIL
  48.      INT     OUTINT      ; Type trace table
  49. ;
  50. ; RETURN TO DOS
  51. ;
  52. QUIT:
  53.      MOV     AL,RC         ;SET RETURN CODE
  54.      MOV     AH,4CH      ;EXIT
  55.      INT     21H         ;TO DOS 2.0
  56. ;
  57. FAIL:     LEA     DX,NOWAY    ; GIVE UP WITH ERROR MESSAGE
  58.      MOV     AH,9
  59.      INT     21H
  60.      JMP     QUIT
  61. START     ENDP
  62. CSEG     ENDS
  63.      END
  64.